#*********************************************************************
# Description:
# sasql_fetch_object() returns one row of the result set as an object.
# Each property name matches one of the result set's column name.
# It returns FALSE if there are no more rows in the result set.
#
#*********************************************************************

# Connect using the default user ID and password
$conn = sasql_connect ( "UID=DBA;PWD=sql" ) ;

if ( ! $conn ) {
　　　　echo "sasql_connect failed \n " ;
} else {
　　　　$result = sasql_query ( $conn , "SELECT * FROM Customers" ) ;

　　　　if ( ! $result ) {
　　　　　　echo "sasql_query failed!" ;
　　　　} else {
　　　　　　$num_cols = sasql_field_count ( $conn ) ;
　　　　　　$num_rows = sasql_num_rows ( $result ) ;

　　　　　　echo "Num of rows = $num_rows<br> \n " ;
　　　　　　echo "Num of cols = $num_cols<br> \n " ;
　　　　　　echo "<br> \n " ;

　　　　　　$cur_row = 0 ;
　　　　　　$cur_col = 0 ;

　　　　　　# Fetch object
　　　　　　while ( ( $row = sasql_fetch_object ( $result ) ) ) {
　　　　　　　　　　echo "($cur_row): =========================== <br> \n " ;
　　　　　　　　　　#Print the key and value of each object
　　　　　　　　　　while ( list ( $key , $val ) = each ( $row ) ) {
　　　　　　　　　　　　echo "$key : $val \n " ;
　　　　　　　　　　　　$cur_col ++;
　　　　　　　　　　}
　　　　　　　　　　echo "<br> \n " ;
　　　　　　　　　　$cur_row ++;
　　　　　　}
　　　　　　# Free result set
　　　　　　sasql_free_result ( $result ) ;
　　　　}
　　　　# Close connection
　　　　sasql_close ( $conn ) ;
　　　　echo "<br> \n " ;
}